home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
cmpnew
/
cmpflet.c
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
27KB
|
1,166 lines
/* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
#include <cmpinclude.h>
#include "cmpflet.h"
init_cmpflet(start,size,data)char *start;int size;object data;
{ register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
(void)(putprop(VV[0],VV[1],VV[2]));
(void)(putprop(VV[0],VV[3],VV[4]));
(void)(putprop(VV[5],VV[6],VV[2]));
(void)(putprop(VV[5],VV[7],VV[4]));
(void)(putprop(VV[8],VV[9],VV[2]));
(void)(putprop(VV[10],VV[11],VV[4]));
(void)(putprop(VV[12],VV[13],VV[14]));
(void)(putprop(VV[12],Ct,VV[15]));
(void)(putprop(VV[12],VV[16],VV[17]));
(void)(putprop(VV[12],Cnil,VV[18]));
(void)(putprop(VV[12],Cnil,VV[19]));
(void)(putprop(VV[12],Cnil,VV[20]));
(void)(putprop(VV[12],Cnil,VV[21]));
MF(VV[22],L14,start,size,data);
(void)(putprop(VV[22],VV[23],VV[24]));
(void)(putprop(VV[22],VV[25],VV[26]));
(void)(remprop(VV[22],VV[27]));
(void)(remprop(VV[22],VV[28]));
(void)(putprop(VV[22],Cnil,VV[29]));
MF(VV[30],L21,start,size,data);
(void)(putprop(VV[30],VV[31],VV[24]));
(void)(putprop(VV[30],VV[32],VV[26]));
(void)(remprop(VV[30],VV[27]));
(void)(remprop(VV[30],VV[28]));
(void)(putprop(VV[30],Cnil,VV[29]));
MF(VV[33],L28,start,size,data);
(void)(putprop(VV[33],VV[34],VV[24]));
(void)(putprop(VV[33],VV[35],VV[26]));
(void)(remprop(VV[33],VV[27]));
(void)(remprop(VV[33],VV[28]));
(void)(putprop(VV[33],Cnil,VV[29]));
MF(VV[36],L35,start,size,data);
(void)(putprop(VV[36],VV[37],VV[24]));
(void)(putprop(VV[36],VV[38],VV[26]));
(void)(remprop(VV[36],VV[27]));
(void)(remprop(VV[36],VV[28]));
(void)(putprop(VV[36],Cnil,VV[29]));
MF(VV[39],L42,start,size,data);
(void)(putprop(VV[39],VV[40],VV[24]));
(void)(putprop(VV[39],VV[41],VV[26]));
(void)(remprop(VV[39],VV[27]));
(void)(remprop(VV[39],VV[28]));
(void)(putprop(VV[39],Cnil,VV[29]));
(void)(putprop(VV[12],VV[42],VV[43]));
MF(VV[84],L50,start,size,data);
(void)(putprop(VV[12],VV[44],VV[45]));
MF(VV[85],L52,start,size,data);
MF(VV[86],L53,start,size,data);
(void)(putprop(VV[12],Cnil,VV[46]));
VV[47]->s.s_stype=(short)stp_special;
if(VV[47]->s.s_dbind == OBJNULL){
VV[47]->s.s_dbind = Cnil;}
MF(VV[1],L56,start,size,data);
MF(VV[3],L57,start,size,data);
MF(VV[6],L58,start,size,data);
MF(VV[7],L59,start,size,data);
MF(VV[9],L60,start,size,data);
MF(VV[87],L61,start,size,data);
MF(VV[88],L62,start,size,data);
MF(VV[89],L63,start,size,data);
MF(VV[11],L64,start,size,data);
vs_top=vs_base=base;
}
/* function definition for FUN-NAME */
static L14()
{ register object *base=vs_base;
register object *sup=base+VM3;
vs_reserve(VM3);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= structure_ref(base[0],VV[12],0);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for FUN-REF */
static L21()
{ register object *base=vs_base;
register object *sup=base+VM4;
vs_reserve(VM4);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= structure_ref(base[0],VV[12],1);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for FUN-REF-CCB */
static L28()
{ register object *base=vs_base;
register object *sup=base+VM5;
vs_reserve(VM5);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= structure_ref(base[0],VV[12],2);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for FUN-CFUN */
static L35()
{ register object *base=vs_base;
register object *sup=base+VM6;
vs_reserve(VM6);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= structure_ref(base[0],VV[12],3);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for FUN-LEVEL */
static L42()
{ register object *base=vs_base;
register object *sup=base+VM7;
vs_reserve(VM7);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= structure_ref(base[0],VV[12],4);
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for MAKE-FUN */
static L50()
{ register object *base=vs_base;
register object *sup=base+VM8;
vs_reserve(VM8);
parse_key(vs_base,FALSE,FALSE,5,VV[51],VV[52],VV[53],VV[90],VV[91]);
vs_top=sup;
base[10]= VV[12];
base[11]= base[0];
base[12]= base[1];
base[13]= base[2];
base[14]= base[3];
base[15]= base[4];
vs_top=(vs_base=base+10)+6;
siLmake_structure();
return;
}
/* function definition for COPY-FUN */
static L52()
{ register object *base=vs_base;
register object *sup=base+VM9;
vs_reserve(VM9);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= base[0];
base[2]= VV[12];
symlispcall_no_event(VV[92],base+1,2);
return;
}
/* function definition for FUN-P */
static L53()
{ register object *base=vs_base;
register object *sup=base+VM10;
vs_reserve(VM10);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= base[0];
vs_top=(vs_base=base+1)+1;
siLstructurep();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T57;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T57:;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
siLstructure_name();
vs_top=sup;
base[1]= vs_base[0];
T63:;
if((base[1])!=Cnil){
goto T64;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T64:;
if(!(base[1]==VV[12])){
goto T68;}
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T68:;
base[1]= get(base[1],VV[18],Cnil);
goto T63;
}
/* function definition for C1FLET */
static L56()
{ register object *base=vs_base;
register object *sup=base+VM11;
vs_reserve(VM11);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
base[2]= Cnil;
base[3]= Cnil;
base[4]= Cnil;
base[5]= Cnil;
base[6]= Cnil;
base[7]= Cnil;
base[8]= Cnil;
base[9]= Cnil;
if(!(endp(base[0]))){
goto T75;}
base[10]= VV[0];
base[11]= VV[48];
base[12]= VV[49];
(void)simple_symlispcall_no_event(VV[93],base+10,3);
T75:;
bds_bind(VV[47],symbol_value(VV[47]));
{object V1;
object V2;
V1= car(base[0]);
V2= car((V1));
T86:;
if(!(endp((V1)))){
goto T87;}
goto T82;
T87:;
if(endp((V2))){
goto T92;}
if(!(type_of(car((V2)))==t_symbol)){
goto T92;}
if(!(endp(cdr((V2))))){
goto T91;}
T92:;
base[11]= VV[50];
base[12]= (V2);
(void)simple_symlispcall_no_event(VV[94],base+11,2);
T91:;
base[12]= VV[51];
base[13]= car((V2));
base[14]= VV[52];
base[15]= Cnil;
base[16]= VV[53];
base[17]= Cnil;
vs_top=(vs_base=base+12)+6;
L50();
vs_top=sup;
base[11]= vs_base[0];
(VV[47]->s.s_dbind)= make_cons(base[11],(VV[47]->s.s_dbind));
base[12]= list(2,base[11],cdr((V2)));
base[7]= make_cons(base[12],base[7]);
V1= cdr((V1));
V2= car((V1));
goto T86;}
T82:;
base[11]= cdr(base[0]);
base[12]= Ct;
symlispcall_no_event(VV[95],base+11,2);
if(vs_base<vs_top){
base[1]= vs_base[0];
vs_base++;
}else{
base[1]= Cnil;}
if(vs_base<vs_top){
base[2]= vs_base[0];
vs_base++;
}else{
base[2]= Cnil;}
if(vs_base<vs_top){
base[3]= vs_base[0];
vs_base++;
}else{
base[3]= Cnil;}
if(vs_base<vs_top){
base[4]= vs_base[0];
vs_base++;
}else{
base[4]= Cnil;}
if(vs_base<vs_top){
base[5]= vs_base[0];
}else{
base[5]= Cnil;}
vs_top=sup;
bds_bind(VV[54],symbol_value(VV[54]));
base[12]= base[2];
(void)simple_symlispcall_no_event(VV[96],base+12,1);
base[12]= Cnil;
base[13]= base[3];
base[14]= base[4];
(void)simple_symlispcall_no_event(VV[97],base+12,3);
base[12]= base[5];
base[13]= base[1];
base[1]= simple_symlispcall_no_event(VV[98],base+12,2);
bds_unwind1;
base[11]= cadr(base[1]);
base[6]= simple_symlispcall_no_event(VV[99],base+11,1);
bds_unwind1;
{object V3;
base[10]= reverse(base[7]);
V3= car(base[10]);
T136:;
if(!(endp(base[10]))){
goto T137;}
goto T132;
T137:;
if((structure_ref(car((V3)),VV[12],2))==Cnil){
goto T141;}
base[11]= make_cons(VV[55],symbol_value(VV[54]));
base[12]= make_cons(VV[55],symbol_value(VV[47]));
base[13]= make_cons(VV[55],symbol_value(VV[56]));
base[14]= make_cons(VV[55],symbol_value(VV[57]));
bds_bind(VV[54],base[11]);
bds_bind(VV[47],base[12]);
bds_bind(VV[56],base[13]);
bds_bind(VV[57],base[14]);
base[16]= cadr((V3));
base[17]= structure_ref(car((V3)),VV[12],0);
base[15]= simple_symlispcall_no_event(VV[100],base+16,2);
base[16]= base[6];
base[17]= cadr(base[15]);
(void)simple_symlispcall_no_event(VV[101],base+16,2);
base[16]= list(2,car((V3)),base[15]);
base[9]= make_cons(base[16],base[9]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
T141:;
if((structure_ref(car((V3)),VV[12],1))==Cnil){
goto T155;}
base[11]= make_cons(VV[58],symbol_value(VV[56]));
base[12]= make_cons(VV[58],symbol_value(VV[57]));
base[13]= make_cons(VV[58],symbol_value(VV[54]));
bds_bind(VV[56],base[11]);
bds_bind(VV[57],base[12]);
bds_bind(VV[54],base[13]);
base[15]= cadr((V3));
base[16]= structure_ref(car((V3)),VV[12],0);
base[14]= simple_symlispcall_no_event(VV[100],base+15,2);
base[15]= base[6];
base[16]= cadr(base[14]);
(void)simple_symlispcall_no_event(VV[101],base+15,2);
base[15]= list(2,car((V3)),base[14]);
base[8]= make_cons(base[15],base[8]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
T155:;
if((structure_ref(car((V3)),VV[12],1))!=Cnil){
goto T169;}
if((structure_ref(car((V3)),VV[12],2))==Cnil){
goto T168;}
T169:;
{object V4= car((V3));
setq(VV[59],number_plus(symbol_value(VV[59]),VV[48]));
structure_set(V4,VV[12],3,symbol_value(VV[59]));}
T168:;
base[10]= cdr(base[10]);
V3= car(base[10]);
goto T136;}
T132:;
if((base[8])!=Cnil){
goto T179;}
if((base[9])==Cnil){
goto T180;}
T179:;
base[10]= reverse(base[8]);
base[11]= reverse(base[9]);
base[12]= list(5,VV[0],base[6],base[10],base[11],base[1]);
vs_top=(vs_base=base+12)+1;
return;
T180:;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for C2FLET */
static L57()
{ register object *base=vs_base;
register object *sup=base+VM12;
vs_reserve(VM12);
bds_check;
check_arg(3);
vs_top=sup;
TTL:;
bds_bind(VV[60],symbol_value(VV[60]));
bds_bind(VV[61],symbol_value(VV[61]));
bds_bind(VV[62],symbol_value(VV[62]));
{object V5;
object V6;
V5= base[0];
V6= car((V5));
T188:;
if(!(endp((V5)))){
goto T189;}
goto T184;
T189:;
structure_set(car((V6)),VV[12],4,symbol_value(VV[63]));
base[6]= (VV[61]->s.s_dbind);
base[7]= (VV[62]->s.s_dbind);
base[8]= list(5,Cnil,base[6],base[7],car((V6)),cadr((V6)));
setq(VV[64],make_cons(base[8],symbol_value(VV[64])));
V5= cdr((V5));
V6= car((V5));
goto T188;}
T184:;
{object V7;
object V8;
V7= base[1];
V8= car((V7));
T205:;
if(!(endp((V7)))){
goto T206;}
goto T201;
T206:;
if(((VV[61]->s.s_dbind))!=Cnil){
goto T214;}
base[6]= Cnil;
goto T212;
T214:;
base[6]= make_cons(VV[49],VV[49]);
T212:;
base[7]= (VV[62]->s.s_dbind);
base[8]= list(5,VV[65],base[6],base[7],car((V8)),cadr((V8)));
setq(VV[64],make_cons(base[8],symbol_value(VV[64])));
setq(VV[66],make_cons(car((V8)),symbol_value(VV[66])));
{object V9;
V9= car((V8));
base[6]= simple_symlispcall_no_event(VV[102],base+7,0);
structure_set((V9),VV[12],1,base[6]);
princ_str("\n ",VV[67]);
base[6]= structure_ref((V9),VV[12],1);
(void)simple_symlispcall_no_event(VV[103],base+6,1);
princ_str("=make_cclosure(LC",VV[67]);
base[6]= structure_ref((V9),VV[12],3);
(void)simple_symlispcall_no_event(VV[104],base+6,1);
princ_str(",Cnil,",VV[67]);
(void)simple_symlispcall_no_event(VV[105],base+6,0);
princ_str(",Cdata,Cstart,Csize);",VV[67]);
princ_str("\n ",VV[67]);
base[6]= structure_ref((V9),VV[12],1);
(void)simple_symlispcall_no_event(VV[103],base+6,1);
princ_str("=MMcons(",VV[67]);
base[6]= structure_ref((V9),VV[12],1);
(void)simple_symlispcall_no_event(VV[103],base+6,1);
princ_char(44,VV[67]);
(void)simple_symlispcall_no_event(VV[105],base+6,0);
princ_str(");",VV[67]);
base[6]= structure_ref((V9),VV[12],1);
(void)simple_symlispcall_no_event(VV[106],base+6,1);
base[6]= simple_symlispcall_no_event(VV[107],base+7,0);
structure_set((V9),VV[12],2,base[6]);}
V7= cdr((V7));
V8= car((V7));
goto T205;}
T201:;
base[6]= base[2];
symlispcall_no_event(VV[108],base+6,1);
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for C1LABELS */
static L58()
{ register object *base=vs_base;
register object *sup=base+VM13;
vs_reserve(VM13);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
base[2]= Cnil;
base[3]= Cnil;
base[4]= Cnil;
base[5]= Cnil;
base[6]= Cnil;
base[7]= Cnil;
base[8]= Cnil;
base[9]= Cnil;
base[10]= Cnil;
base[11]= Cnil;
bds_bind(VV[47],symbol_value(VV[47]));
if(!(endp(base[0]))){
goto T254;}
base[13]= VV[5];
base[14]= VV[48];
base[15]= VV[49];
(void)simple_symlispcall_no_event(VV[93],base+13,3);
T254:;
{object V10;
object V11;
V10= car(base[0]);
V11= car((V10));
T264:;
if(!(endp((V10)))){
goto T265;}
goto T260;
T265:;
if(endp((V11))){
goto T270;}
if(!(type_of(car((V11)))==t_symbol)){
goto T270;}
if(!(endp(cdr((V11))))){
goto T269;}
T270:;
base[13]= VV[68];
base[14]= (V11);
(void)simple_symlispcall_no_event(VV[94],base+13,2);
T269:;
{object x= car((V11)),V12= base[10];
while(!endp(V12))
if(eql(x,V12->c.c_car)){
goto T280;
}else V12=V12->c.c_cdr;
goto T278;}
T280:;
base[13]= VV[69];
base[14]= car((V11));
(void)simple_symlispcall_no_event(VV[94],base+13,2);
T278:;
base[10]= make_cons(car((V11)),base[10]);
base[14]= VV[51];
base[15]= car((V11));
base[16]= VV[52];
base[17]= Cnil;
base[18]= VV[53];
base[19]= Cnil;
vs_top=(vs_base=base+14)+6;
L50();
vs_top=sup;
base[13]= vs_base[0];
(VV[47]->s.s_dbind)= make_cons(base[13],(VV[47]->s.s_dbind));
base[14]= list(4,base[13],Cnil,Cnil,cdr((V11)));
base[7]= make_cons(base[14],base[7]);
V10= cdr((V10));
V11= car((V10));
goto T264;}
T260:;
base[7]= reverse(base[7]);
base[13]= cdr(base[0]);
base[14]= Ct;
symlispcall_no_event(VV[95],base+13,2);
if(vs_base<vs_top){
base[1]= vs_base[0];
vs_base++;
}else{
base[1]= Cnil;}
if(vs_base<vs_top){
base[2]= vs_base[0];
vs_base++;
}else{
base[2]= Cnil;}
if(vs_base<vs_top){
base[3]= vs_base[0];
vs_base++;
}else{
base[3]= Cnil;}
if(vs_base<vs_top){
base[4]= vs_base[0];
vs_base++;
}else{
base[4]= Cnil;}
if(vs_base<vs_top){
base[5]= vs_base[0];
}else{
base[5]= Cnil;}
vs_top=sup;
bds_bind(VV[54],symbol_value(VV[54]));
base[14]= base[2];
(void)simple_symlispcall_no_event(VV[96],base+14,1);
base[14]= Cnil;
base[15]= base[3];
base[16]= base[4];
(void)simple_symlispcall_no_event(VV[97],base+14,3);
base[14]= base[5];
base[15]= base[1];
base[1]= simple_symlispcall_no_event(VV[98],base+14,2);
bds_unwind1;
base[13]= cadr(base[1]);
base[6]= simple_symlispcall_no_event(VV[99],base+13,1);
T322:;
base[11]= Cnil;
{object V13;
object V14;
V13= base[7];
V14= car((V13));
T330:;
if(!(endp((V13)))){
goto T331;}
goto T326;
T331:;
if((structure_ref(car((V14)),VV[12],1))==Cnil){
goto T335;}
if((cadr((V14)))!=Cnil){
goto T335;}
base[11]= Ct;
if(type_of(cdr(V14))!=t_cons)FEwrong_type_argument(Scons,cdr(V14));
(cdr(V14))->c.c_car = Ct;
base[13]= make_cons(VV[58],symbol_value(VV[56]));
base[14]= make_cons(VV[58],symbol_value(VV[57]));
base[15]= make_cons(VV[58],symbol_value(VV[54]));
bds_bind(VV[56],base[13]);
bds_bind(VV[57],base[14]);
bds_bind(VV[54],base[15]);
base[17]= cadddr((V14));
base[18]= structure_ref(car((V14)),VV[12],0);
base[16]= simple_symlispcall_no_event(VV[100],base+17,2);
base[17]= base[6];
base[18]= cadr(base[16]);
(void)simple_symlispcall_no_event(VV[101],base+17,2);
base[17]= list(2,car((V14)),base[16]);
base[8]= make_cons(base[17],base[8]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
T335:;
V13= cdr((V13));
V14= car((V13));
goto T330;}
T326:;
if((base[11])!=Cnil){
goto T323;}
goto T320;
T323:;
goto T322;
T320:;
T364:;
base[11]= Cnil;
{object V15;
object V16;
V15= base[7];
V16= car((V15));
T372:;
if(!(endp((V15)))){
goto T373;}
goto T368;
T373:;
if((structure_ref(car((V16)),VV[12],2))==Cnil){
goto T377;}
if((caddr((V16)))!=Cnil){
goto T377;}
base[11]= Ct;
if(type_of(cddr(V16))!=t_cons)FEwrong_type_argument(Scons,cddr(V16));
(cddr(V16))->c.c_car = Ct;
base[13]= make_cons(VV[55],symbol_value(VV[54]));
base[14]= make_cons(VV[55],(VV[47]->s.s_dbind));
base[15]= make_cons(VV[55],symbol_value(VV[56]));
base[16]= make_cons(VV[55],symbol_value(VV[57]));
bds_bind(VV[54],base[13]);
bds_bind(VV[47],base[14]);
bds_bind(VV[56],base[15]);
bds_bind(VV[57],base[16]);
base[18]= cadddr((V16));
base[19]= structure_ref(car((V16)),VV[12],0);
base[17]= simple_symlispcall_no_event(VV[100],base+18,2);
base[18]= base[6];
base[19]= cadr(base[17]);
(void)simple_symlispcall_no_event(VV[101],base+18,2);
base[18]= list(2,car((V16)),base[17]);
base[9]= make_cons(base[18],base[9]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
T377:;
V15= cdr((V15));
V16= car((V15));
goto T372;}
T368:;
if((base[11])!=Cnil){
goto T365;}
goto T362;
T365:;
goto T364;
T362:;
{object V17;
object V18;
V17= base[7];
V18= car((V17));
T409:;
if(!(endp((V17)))){
goto T410;}
goto T405;
T410:;
if((structure_ref(car((V18)),VV[12],1))!=Cnil){
goto T415;}
if((structure_ref(car((V18)),VV[12],2))==Cnil){
goto T414;}
T415:;
{object V19= car((V18));
setq(VV[59],number_plus(symbol_value(VV[59]),VV[48]));
structure_set(V19,VV[12],3,symbol_value(VV[59]));}
T414:;
V17= cdr((V17));
V18= car((V17));
goto T409;}
T405:;
if((base[8])!=Cnil){
goto T425;}
if((base[9])==Cnil){
goto T426;}
T425:;
base[13]= reverse(base[8]);
base[14]= reverse(base[9]);
base[15]= list(5,VV[5],base[6],base[13],base[14],base[1]);
vs_top=(vs_base=base+15)+1;
bds_unwind1;
return;
T426:;
vs_top=(vs_base=base+1)+1;
bds_unwind1;
return;
}
/* function definition for C2LABELS */
static L59()
{ register object *base=vs_base;
register object *sup=base+VM14;
vs_reserve(VM14);
bds_check;
check_arg(3);
vs_top=sup;
TTL:;
bds_bind(VV[60],symbol_value(VV[60]));
bds_bind(VV[61],symbol_value(VV[61]));
{object V20;
object V21;
V20= base[1];
V21= car((V20));
T434:;
if(!(endp((V20)))){
goto T435;}
goto T430;
T435:;
{object V22;
V22= car((V21));
base[5]= simple_symlispcall_no_event(VV[102],base+6,0);
structure_set((V22),VV[12],1,base[5]);
princ_str("\n ",VV[67]);
base[5]= structure_ref((V22),VV[12],1);
(void)simple_symlispcall_no_event(VV[103],base+5,1);
princ_str("=MMcons(Cnil,",VV[67]);
(void)simple_symlispcall_no_event(VV[105],base+5,0);
princ_str(");",VV[67]);
base[5]= structure_ref((V22),VV[12],1);
(void)simple_symlispcall_no_event(VV[106],base+5,1);
base[5]= simple_symlispcall_no_event(VV[107],base+6,0);
structure_set((V22),VV[12],2,base[5]);}
V20= cdr((V20));
V21= car((V20));
goto T434;}
T430:;
{object V23;
object V24;
V23= base[0];
V24= car((V23));
T463:;
if(!(endp((V23)))){
goto T464;}
goto T459;
T464:;
structure_set(car((V24)),VV[12],4,symbol_value(VV[63]));
base[5]= (VV[61]->s.s_dbind);
base[6]= symbol_value(VV[62]);
base[7]= list(5,Cnil,base[5],base[6],car((V24)),cadr((V24)));
setq(VV[64],make_cons(base[7],symbol_value(VV[64])));
V23= cdr((V23));
V24= car((V23));
goto T463;}
T459:;
{object V25;
object V26;
V25= base[1];
V26= car((V25));
T480:;
if(!(endp((V25)))){
goto T481;}
goto T476;
T481:;
if(((VV[61]->s.s_dbind))!=Cnil){
goto T489;}
base[5]= Cnil;
goto T487;
T489:;
base[5]= make_cons(VV[49],VV[49]);
T487:;
base[6]= symbol_value(VV[62]);
base[7]= list(5,VV[65],base[5],base[6],car((V26)),cadr((V26)));
setq(VV[64],make_cons(base[7],symbol_value(VV[64])));
setq(VV[66],make_cons(car((V26)),symbol_value(VV[66])));
princ_str("\n ",VV[67]);
base[5]= structure_ref(car((V26)),VV[12],1);
(void)simple_symlispcall_no_event(VV[109],base+5,1);
princ_str("=make_cclosure(LC",VV[67]);
base[5]= structure_ref(car((V26)),VV[12],3);
(void)simple_symlispcall_no_event(VV[104],base+5,1);
princ_str(",Cnil,",VV[67]);
(void)simple_symlispcall_no_event(VV[105],base+5,0);
princ_str(",Cdata,Cstart,Csize);",VV[67]);
V25= cdr((V25));
V26= car((V25));
goto T480;}
T476:;
base[5]= base[2];
symlispcall_no_event(VV[108],base+5,1);
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for C1MACROLET */
static L60()
{ register object *base=vs_base;
register object *sup=base+VM15;
vs_reserve(VM15);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
base[2]= Cnil;
base[3]= Cnil;
base[4]= Cnil;
base[5]= Cnil;
bds_bind(VV[47],symbol_value(VV[47]));
bds_bind(VV[54],symbol_value(VV[54]));
if(!(endp(base[0]))){
goto T510;}
base[8]= VV[8];
base[9]= VV[48];
base[10]= VV[49];
(void)simple_symlispcall_no_event(VV[93],base+8,3);
T510:;
{object V27;
object V28;
V27= car(base[0]);
V28= car((V27));
T520:;
if(!(endp((V27)))){
goto T521;}
goto T516;
T521:;
if(endp((V28))){
goto T526;}
if(!(type_of(car((V28)))==t_symbol)){
goto T526;}
if(!(endp(cdr((V28))))){
goto T525;}
T526:;
base[8]= VV[70];
base[9]= (V28);
(void)simple_symlispcall_no_event(VV[94],base+8,2);
T525:;
{object V29= car((V28));
base[9]= car((V28));
base[10]= cadr((V28));
base[11]= cddr((V28));
base[8]= simple_symlispcall_no_event(VV[110],base+9,3);
base[9]= list(2,V29,caddr(base[8]));
(VV[47]->s.s_dbind)= make_cons(base[9],(VV[47]->s.s_dbind));}
V27= cdr((V27));
V28= car((V27));
goto T520;}
T516:;
base[8]= cdr(base[0]);
base[9]= Ct;
symlispcall_no_event(VV[95],base+8,2);
if(vs_base<vs_top){
base[1]= vs_base[0];
vs_base++;
}else{
base[1]= Cnil;}
if(vs_base<vs_top){
base[2]= vs_base[0];
vs_base++;
}else{
base[2]= Cnil;}
if(vs_base<vs_top){
base[3]= vs_base[0];
vs_base++;
}else{
base[3]= Cnil;}
if(vs_base<vs_top){
base[4]= vs_base[0];
vs_base++;
}else{
base[4]= Cnil;}
if(vs_base<vs_top){
base[5]= vs_base[0];
}else{
base[5]= Cnil;}
vs_top=sup;
base[8]= base[2];
(void)simple_symlispcall_no_event(VV[96],base+8,1);
base[8]= Cnil;
base[9]= base[3];
base[10]= base[4];
(void)simple_symlispcall_no_event(VV[97],base+8,3);
base[8]= base[5];
base[9]= base[1];
symlispcall_no_event(VV[98],base+8,2);
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for C1LOCAL-FUN */
static L61()
{ register object *base=vs_base;
register object *sup=base+VM16;
vs_reserve(VM16);
check_arg(1);
vs_top=sup;
TTL:;
{object V30;
V30= Cnil;
{object V31;
base[1]= symbol_value(VV[47]);
V31= car(base[1]);
T560:;
if(!(endp(base[1]))){
goto T561;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T561:;
if(!((V31)==VV[55])){
goto T567;}
V30= Ct;
goto T565;
T567:;
if(!(type_of((V31))==t_cons)){
goto T571;}
if(!(car((V31))==base[0])){
goto T565;}
base[2]= cadr((V31));
vs_top=(vs_base=base+2)+1;
return;
T571:;
if(!(structure_ref((V31),VV[12],0)==base[0])){
goto T565;}
if(((V30))==Cnil){
goto T579;}
structure_set((V31),VV[12],2,Ct);
goto T577;
T579:;
structure_set((V31),VV[12],1,Ct);
T577:;
base[2]= list(4,VV[10],symbol_value(VV[71]),(V31),(V30));
vs_top=(vs_base=base+2)+1;
return;
T565:;
base[1]= cdr(base[1]);
V31= car(base[1]);
goto T560;}}
}
/* function definition for SCH-LOCAL-FUN */
static L62()
{ register object *base=vs_base;
register object *sup=base+VM17;
vs_reserve(VM17);
check_arg(1);
vs_top=sup;
TTL:;
{object V32;
base[1]= symbol_value(VV[47]);
V32= car(base[1]);
T588:;
if(!(endp(base[1]))){
goto T589;}
vs_top=(vs_base=base+0)+1;
return;
T589:;
if((V32)==VV[55]){
goto T593;}
if(type_of((V32))==t_cons){
goto T593;}
if(!(structure_ref((V32),VV[12],0)==base[0])){
goto T593;}
base[2]= (V32);
vs_top=(vs_base=base+2)+1;
return;
T593:;
base[1]= cdr(base[1]);
V32= car(base[1]);
goto T588;}
}
/* function definition for C1LOCAL-CLOSURE */
static L63()
{ register object *base=vs_base;
register object *sup=base+VM18;
vs_reserve(VM18);
check_arg(1);
vs_top=sup;
TTL:;
{object V33;
V33= Cnil;
{object V34;
base[1]= symbol_value(VV[47]);
V34= car(base[1]);
T608:;
if(!(endp(base[1]))){
goto T609;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T609:;
if(!((V34)==VV[55])){
goto T615;}
V33= Ct;
goto T613;
T615:;
if(!(type_of((V34))==t_cons)){
goto T619;}
if(!(car((V34))==base[0])){
goto T613;}
base[2]= cadr((V34));
vs_top=(vs_base=base+2)+1;
return;
T619:;
if(!(structure_ref((V34),VV[12],0)==base[0])){
goto T613;}
structure_set((V34),VV[12],2,Ct);
base[2]= list(4,VV[10],symbol_value(VV[71]),(V34),(V33));
vs_top=(vs_base=base+2)+1;
return;
T613:;
base[1]= cdr(base[1]);
V34= car(base[1]);
goto T608;}}
}
/* function definition for C2CALL-LOCAL */
static L64()
{ register object *base=vs_base;
register object *sup=base+VM19;
vs_reserve(VM19);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
bds_bind(VV[60],symbol_value(VV[60]));
if((cadr(base[0]))==Cnil){
goto T633;}
base[3]= base[1];
(void)simple_symlispcall_no_event(VV[111],base+3,1);
princ_str("\n cclosure_call(",VV[67]);
base[3]= structure_ref(car(base[0]),VV[12],2);
(void)simple_symlispcall_no_event(VV[112],base+3,1);
princ_str(");",VV[67]);
goto T631;
T633:;
if(!(type_of(base[1])==t_cons||base[1]==Cnil)){
goto T643;}
if((symbol_value(VV[72]))==Cnil){
goto T643;}
if((symbol_value(VV[73]))==Cnil){
goto T643;}
if(!(car(symbol_value(VV[73]))==car(base[0]))){
goto T643;}
if(!(symbol_value(VV[74])==VV[75])){
goto T643;}
if((simple_symlispcall_no_event(VV[113],base+3,0))==Cnil){
goto T643;}
if(!((length(base[1]))==(length(cdr(symbol_value(VV[73])))))){
goto T643;}
bds_bind(VV[76],VV[77]);
setq(VV[78],number_plus(symbol_value(VV[78]),VV[48]));
bds_bind(VV[74],make_cons(symbol_value(VV[78]),Cnil));
bds_bind(VV[79],make_cons((VV[74]->s.s_dbind),symbol_value(VV[79])));
base[6]=symbol_function(VV[114]);
{object V35;
object V36= cdr(symbol_value(VV[73]));
if(endp(V36)){
base[7]= Cnil;
goto T662;}
base[8]=V35=MMcons(Cnil,Cnil);
T663:;
(V35->c.c_car)= list(2,(V36->c.c_car),Cnil);
if(endp(V36=MMcdr(V36))){
base[7]= base[8];
goto T662;}
V35=MMcdr(V35)=MMcons(Cnil,Cnil);
goto T663;}
T662:;
base[8]= base[1];
(void)simple_lispcall_no_event(base+6,2);
if((cdr((VV[74]->s.s_dbind)))==Cnil){
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T657;}
princ_str("\nT",VV[67]);
base[6]= car((VV[74]->s.s_dbind));
(void)simple_symlispcall_no_event(VV[104],base+6,1);
princ_str(":;",VV[67]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
T657:;
base[3]= VV[80];
(void)simple_symlispcall_no_event(VV[115],base+3,1);
princ_str("\n goto TTL;",VV[67]);
base[3]= VV[81];
base[4]= structure_ref(car(base[0]),VV[12],0);
(void)simple_symlispcall_no_event(VV[116],base+3,2);
goto T631;
T643:;
base[3]= base[1];
(void)simple_symlispcall_no_event(VV[111],base+3,1);
princ_str("\n L",VV[67]);
base[3]= structure_ref(car(base[0]),VV[12],3);
(void)simple_symlispcall_no_event(VV[104],base+3,1);
princ_char(40,VV[67]);
{int V37;
int V38;
V37= fix(structure_ref(car(base[0]),VV[12],4));
V38= 0;
T689:;
if(!((V38)>=(V37))){
goto T690;}
goto T685;
T690:;
princ_str("base",VV[67]);
base[3]= make_fixnum(V38);
(void)simple_symlispcall_no_event(VV[104],base+3,1);
princ_char(44,VV[67]);
V38= (V38)+1;
goto T689;}
T685:;
princ_str("base",VV[67]);
if(number_compare(structure_ref(car(base[0]),VV[12],4),symbol_value(VV[63]))==0){
goto T704;}
base[3]= one_minus(symbol_value(VV[63]));
(void)simple_symlispcall_no_event(VV[104],base+3,1);
T704:;
princ_str(");",VV[67]);
setq(VV[82],Ct);
T631:;
base[3]= VV[83];
symlispcall_no_event(VV[117],base+3,1);
bds_unwind1;
return;
}